﻿Imports System.IO

Public Class FileReader
    Sub ReadArray(ByVal cPath As String)
        Dim sr As StreamReader = New StreamReader(cPath)
        Dim cdata As String
        Dim arr() As String
        Do While sr.Peek() >= 0
            cdata = sr.ReadLine()
            arr = cdata.Split(";")
        Loop
        sr.Close()

    End Sub
End Class
